home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ File Sharing Overlay 1.xpl < prev    next >
Text File  |  2002-01-04  |  1KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Network\Explorer"
  6. "NAME"="Shared Resources Overlay"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Hand Icon over Shared Resources"
  9. "DESCRIPTION 1"="When you share a drive or a folder in Windows Explorer, a hand icon appears over the top of it, to indicate that it is shared. If, however, you do not want this hand icon to appear, clear the box above. To restore the icon, place a tick in the box."
  10. "COMMENT 1"="For more information, see http://registry.winguides.com/display.php/802/"
  11. "VERSION"="1.02"
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  14. "CONTACTURL"="http://www.xteq.com/"
  15.  
  16. sP="HKCR\Network\SharingHandler\@"
  17.  
  18. SUB Plugin_Initialize
  19.  s=RegReadValue(sP)
  20.  if s="msshrui.dll" then
  21.   Call SetUIElement(1,true)
  22.  end if
  23.  if s="ntshrui.dll" then
  24.   Call SetUIElement(1,true)
  25.  end if
  26. END SUB
  27.  
  28. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  s=GetUIElement(1)
  30.  if s=true then
  31.   w=GetWinVer
  32.   if w=2 then
  33.    Call RegWriteValue(sP,"ntshrui.dll",1)
  34.   else
  35.    if w=4 then
  36.     Call RegWriteValue(sP,"ntshrui.dll",1)
  37.    else
  38.     Call RegWriteValue(sP,"msshrui.dll",1)
  39.    end if
  40.   end if
  41.  else
  42.   t=RegValueExists(sP)
  43.   if t=true then
  44.    Call RegDeleteValue(sP)
  45.   end if
  46.  end if
  47. END SUB
  48.  
  49. SUB Plugin_Terminate
  50. END SUB
  51.